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KK KK EEEEEEEEEE YY YY TTTITTTTTT RRRRRRRR NN NN CCCCCCCC =H HH RRRRRRRR 

KK KK EEEEEEEEEE YY YY TTTTTTTTTT RRRRRRRR NN NN cccccccc =H HH RRRRRRRR 

KK KK EE YY YY TT RR RR NN NN CC HH HH RR RR 

KK KK EE YY YY TT RR RR NN NN CC HH HH RR RR 

KK KK EE YY yvY TT RR RR NNNN NN CC HH HH RR RR 

KK KK EE yy YY TT RR RR NNNN NN CC HH HH RR RR 

KKKKKK EEEEEEEE YY TT RRRRRRRR NN NN NN CC HHHHHHHHHH = RRRRRRRR 
KKKKKK EEEEEEEE YY TT RRRRRRRR NN NN NN CC HHHHHHHHHH = RRRRRRRR 

KK KK EE YY TT RR RR NN NNNN CC HH HH RR RR 

KK KK EE YY TT RR RR NN NNNN CC HH HH RR RR 

KK KK EE YY TT RR RR NN cc HH HH RR RR eoee 

KK KK EE YY TT RR RR NN NN CC HH HH RR RR eeee 

KK KK EEEEEEEEEE YY tT RR RR NN NN CCCCCCCC HH HH RR RR cece 

KK KK EEEEEEEEEE YY TT RR RR NN NN cccccccc HH HH RR RR cece 
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EDTSKEYTRNCHR = translate keypad ke 16-Sep-1984 00:46: AX-11 Bliss-32 V4.0-74 Page 1 
< . 12-828713 4 99:59:98 YET sRe KEYTRNCHR.BLI; . 1) 
01 ZTITLE "EDTSKEYTRNCHR = translate keypad key’ 
§ MODULE EDTSKEYTRNCHR ( ! Translate keypad key 
Z te = ‘v04-000' ' File: KEYTRNCHR.BLI Edit: J8S1005 | 
= | 
8? BEGIN 
0? ieuaeeucnenenetencenetenseeennereeereeteererenrennerentnnennennetenernnenetts | 
‘ft 
09 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 


ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
tt ONLY IN ACCORDANCE WITH THE MS OF SUCH LICENSE AND WITH THE 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWA H 


® 

s 

® 

® 

® 

oe 

® 

® 

. 0 * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. . 
® 

i THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE 
® 

® 

® 

& 

zg 

* 

® 

® 


'® AND SH NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
't CORPORATION. 


't DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

it 
i geeeeneeeeeeeeeteeeeeeeeeeeeeetereeeterteeereeeeereneeeeneeeeeeeeeeeeeeeees 
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lee 

4 FACILITY: EDT -- The DEC Standard Editor 
09 ABSTRACT: 
99 ; Translate keypad key. 
99 ENVIRONMENT: Runs at any access mode - AST reentrant 
004 AUTHOR: Bob Kushlis, CREATION DATE: April 7, 1979 
004 i MODIFIED BY: | 
004 i 1-001 - Original. DJS 24-Feb-1981. This module was created by 
004 : extracting routine EDTSS$STRN_KPADK from module KEYTRAN. 
004 ! 1-002 - Requiar ze headers. JBS TO-Mar-1981 | 
Bne ! 1-00 Add return values. JBS 02-0ct-1981 

04 ' 1-004 - New implementation of ser tnee keys. JBS 137Aug7 1282 

2 1-005 = Add conditional for VT220 support. JBS 11-Feb-198 

8 : 
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1 SSBTTL ‘Declarations’ 
! TABLE OF CONTENTS: 


REQUIRE "EDTSRC: TRAROUNAM' ; 


FORWARD ROUTINE . 
EDTSSTRN_KPADK; ! Translate a keypad key 


INCLUDE FILES: 


REQUIRE "EDTSRC:EDTREQ’; 
LIBRARY “EDTSRC:KEYPADDEF '; 
LIBRARY "EDTSRC:SUPPORTS'; 


MACROS: 
NONE 
EQUATED SYMBOLS: 


'¢ 

! The following table is searched to find the meaning of 
! any keypad key. The ordinal position in the table 
corresponds to the definitions for special keypad keys. 


BIN ey _PAD = UPLIT BYTE 
("parstuvwxyQRABCDnSmLPM') : VECTOR (22, BYTE); 
OWN STORAGE: 
NONE 
EXTERNAL REFERENCES: 
In the routine 


p=198¢ 12:88:90 LeDT.SRCIKEVTANCHR-BLI; 


en ceinesiasannttitiatiannt chibiiiasbinianinainagiatdinicnids 
| 12 
EDTSKEYTRNCHR EYTRNCHR = translate keypad ke 1h-se -1984 00:46: AX-11 Bliss<-32 V4.0-74 P 
04 TRN_KPADK = translate Prneypad key 14-Sep-19 G 99:38:93 feDT.sre KEYTRNCHR.BLI; se (33 
99 ZSBTTL ‘EDTSSTRN_KPADK = translate a keypad key’ 


GLOBAL ROUTINE EDTSSTRN_KPADK ( ! Translate a keypad key 
; . ! Where to store the translation 


wr 


144 


; FUNCTIONAL DESCRIPTION: 


w 


oo 


This routine is called when an escape character has been seen. The escape 

or control sequence is read up to the terminator, and, if it is a sequence gonecoted | ® 

oY 3 noyeee or function key, the numeric value for that key is returned; otherwise, 

the terminator character is returned. 

FORMAL PARAMETERS: 
C The address of a fullword to receive the translated character. 

IMPLICIT INPUTS: 


NONE 


NONE 

ROUTINE VALUE: 

1 = ok, 0 = end of journal file 
SIDE EFFECTS: 


i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

IMPLICIT OUTPUTS: 
i 

i 

i 

i 

i 

i 

i 

i : 
Calls EDTSSTI_INPCH to read from the keyboard. 
le 


WWW. NAIA UPI NIPININININIDS 2 2 9 OS OS SO 


Ssssos3 
“ 


EXTERNAL ROUTINE 
EDT$$T1_INPCH; 


IF SUPPORT_VT220 

THEN 

EXTERNAL 

EDTSS$SB_CHAR_INFO : BLOCKVECTOR (256, 1, BYTE]; ! Information about characters 


uF I 

LOCAL 
FUR_VAL; | 
FUN_VAL = 0; 


i Keed reedinn characters as long as they are intermediate characters of 
! yl 0 keypad sequences. 
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BEGIN 
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DT.SRCJKEYTRNCHR.BLI; (3 


ERT ORET rence 3 


BEGIN 
IF CEDTSSTI_INPCH (MY_C) EQL 0) THEN RETURN (0); 
UPPORT_VT220 


Cc 


THEN 
if £-EDTSSS_CHAR_ INFO C.MY_C, 0, 0, 8, 0) EQL %x'FO") 

ts BEGIN 

; Accumulate a@ number. 


| 
FUN_VAL = .FUN_VAL#10; 
FUN-VAL = .FUN-VAL + (.MY_C = %C'0"); 


IF (.FUN_VAL GTR K_MAX_FUN_VAL) THEN FUN_VAL = 0; 
END; 
ZF I 
END 
UNTIL ((.MY_C NEw 2C€°?") AND ' 
(.MY_C REQ %C'O') AND 
(.MY~C NEQ XC'C") 


Y 

R 

4 

3 

4 
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4 
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4 
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4 Z1F SUPPORT_VT220 
4 ZTHEN 
4 

4 
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VIOSSS VS AR AV LOSS LENE AN OOD NON RW ORNS R UN OD UA RUN OOO 


L 
ae AND (.EDT$$B_CHAR_INFO C.MY_C, 0, 0, 8, 0] NEQ %X'FO") 
6 
6 ); 
68 5 1 
6 If this is a function key, we know the value from the number accumulated. 
766 2. 
L 0767 2 XZIF SUPPORT_VT220 
768 ZTHEN 
168 
770 IF (.MY_C EQL %C°™") 
771 THEN 
ore , MY_C = K_FUN_BASE + .FUN_VAL 
77 ELSE 
774 xFI 
775 
ore - BEGIN 
ure Not a function key, search our table of keypad sequence terminators. 
780 3 
At INCR I FROM 0 TO 21 DO 
782 


12 
EDTSKEYTRNCHR EDTSKEYTRNCHR = translate keypad key hese -1984 00:46: AX-11 Bliss-32 V4.0-74 Page 
04 EDTSSTRN_KPADK = translate Preyped key 12-80-1382 99:59:98 EDT. SRCIK EY TRNCHR ABL Ist - (33 | 
; 213 783 IF (.MY_C EQL .KEY_PAD (.1)) 
; 2146 784 : H > “ 
; 15 785 4 BEGIN 
: 19 7 § 4 '+ 
: i , ? a The terminator was found, return it's equivalent. 
: 219 789 4 K_KPAD _BASE + .I; 
$ 0 790 4 EXTTLO 
; | 791 
3 § Brae 
3 079 END; 
; fs 794 
; 5 795 '+ 
: $ £38 i Return the coded character. 
3 079 ie 
; 228 0798 Cc = C3 
3 $$8 0799 RETURN’ (Ti 
: 0 0800 1 END; ! of routine EDTS$TRN_KPADK 


: key 
-IDENT \V04-000\ 


-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


43 42 41 52 51 79 78 77 76 75 74 73 72 71 70 00000 P.AAA: .ASCII \parstuvwxyQRABCDnSmLPM\ ; 

4D 50 6C 6D 53 6E 44 0000F : 
KEY_PAD= P.AAA 
.EXTRN EDTSS$TI_INPCH, EDT$$B_CHAR_INFO 

0004 00000 .ENTRY EDTSSTRN_KPADK, Save R2 : 0671 
SE 04 C2 90002 SUBL2 #4, SP ; 

52 D4 900 CLRL —- FUN_VAL + 0722 

5E DD 00007 1$: PUSHL : 0731 
000000006 00 01 FB 00009 CALLS #1, EDTS$$TI_INPCH : 
30 D5 00010 TSTL RO : 
0 13 00012 BEQL 86 7$ ; 

ro 6 DO 00014 MOVL  MY_C, RO : 0736 
51 0000000060040 9A 00017 MOVZBL EDT$$B_CHAR_INFOCROJ, R1 ; 
FO 8F 51 91 QOOTF CMPB R1, #250 3 
13 12 000 NEQ 2$ : 

25 oA He 8 MULL2 "12 FUN_VAL : pre 

DO AO E MOVAB =48(RO)CFUN VAL], FUN_VAL > 074 

00000063 BF 52 D1 6 D CMPL - FUN_VAL, #99 > 0745 
9 15 BLEQ = 2$ : 
D4 000 CLRL = FUN_VA ; 

3F 50 (01 0 2$: CMPL = RO, "#6 : 0752 
cA 13 B BEQL =s 1 ; 

0000006F  8F 0 D1 6 D CMPL = RO, «#79 : 0753 
cI 13 00044 BEQL =so1$ ; 

00000058 = BF 0 o4 046 CMPL = RO, #97 : 0754 
: 4p BEQL «= «1$ : 

FOF 1 94 Out CAPE Rl. #240 : 0758 

0000007E = &F Bs Di $3 CMPL = RO, «#126 : 0770 


| 
| 
| 
} 
-TITLE EDTSKEYTRNCHR EDTSKEYTRNCHR = translate keypad 
| 


; Routine Size: 135 bytes, Routine Base: _EDTSCODE + 0016 


1 
1 !<BLF/PAGE> 


F i2 
EDTSKEYTRNCHR EDTSKEYTRNCHR = translate keypad ke 16-Sep-1984 00:46: AX-11 iss-32 V4.0-74 
vet EDTSSTRN_KPADK = translate Theyees key 1o-808- 1 be 9935$:98 YEO T se DEH Ae aod 
07 12 0005C BNEQ 3$ 
6E 0190 fe % 444 cone ayotne). MY_C 
50 04 00065 3$: CLAL I 
6E FF7C CF4O 08 89 Fo paper 4$: cHPZV #0, #8, KEY_PADCIJ, MY_C 
6E 012¢ 0 i a9r1 BOyAS OO(RO), MY_C 
EB 50 15 F O78 5$: AOBLEQ #21, I, 4$ 
04 B 6F 06 7C 6$: MOVL MY_C, ac 
a a8 MOVL #17 RO 
04 8 RET 
50 04 00084 7$: CLAL RO 
04 00086 RET 


EDT! 
V04: 


H Bis A al =(FIELD, INITIAL,OPTIMIZE) /NOTRACEBACK/LIS=LIS$:KEYTRNCHR/OBJ=OBJ$:KEYTRNCHR MSRC$:KEYTRNCHR.BLI/UPDATE=(ENHS:K 
ptacs 135 cod + 22 data bytes 
wn tine 00: 13.8 8 
il aoset Tine: 


Lines/CPU Min: ei Be 
Noeeemay A dy | 106 

Memor cy Ut 80 pages 
Compi ation. Complete 
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EDTSKEYTRNCHR PoTece rrnmcue = translate keypad key 1$-5e0-1 “19 AX-11 Bliss-32 V4.0-742 p 7 

Oa 7000 EDTSSTRN_KPADK = translate D heveas key 1e-Sep- 198e § £38; 98 EDT. SRCJKEYTRNCHR.BLI;1 98 (4) 

3 0803 (1 Ew ! of module EDTSKEYTRNCHR : 
335 D804 } of module 
; 05 0 ELUDOM : 
: _EDTSCODE 157 WNOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) ; 
: Library Statistics : 
Mole oe ee ee Oe ee eee =- Symbols -------- Pages Processing ‘ 
; File Total Loaded Percent Mapped i ‘ 
; _$255$DUA28:CEDT. SRCJEDT.L32;1 377 0 0 40 00:00.2 : 
: _$255$0UA28: EDT. SRCJPSECTS.L32;1 2 1 50 7 00:00.1 ; 
$ ~$5eegbUh 8: CEDT.SRC ae Tees resi 34 3 8 7 00:00.1 ‘ 
; 7$255$DUA28:CEDT.SRCJSUPPORTS.L32; 1 2 1 50 5 00:00.1 : 
s COMMAND QUALIFIERS 
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